home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 363 / tprolog1 / tictac.toy < prev    next >
Text File  |  1990-02-03  |  5KB  |  204 lines
  1.  
  2. 'tictactoe' :
  3.    'grf_mode' .
  4.    'grf_mse_show'(0) .
  5.    'tag'('tictactoe'('human')) .
  6.    'grf_mse_hide' .
  7.    'txt_mode' .
  8.    []
  9. 'tictactoe'('human') :
  10.    'screen' .
  11.    'play'('human', 'u' . 'u' . 'u' . 'u' . 'u' . 'u' . 'u' . 'u' . 'u' . '[]') .
  12.    'tictactoe'('computer') .
  13.    []
  14. 'tictactoe'('computer') :
  15.    'screen' .
  16.    'play'('computer', 'u' . 'u' . 'u' . 'u' . 'u' . 'u' . 'u' . 'u' . 'u' . '[]') .
  17.    'tictactoe'('human') .
  18.    []
  19. 'play'(:0, :1) :
  20.    'wins'('o', :1) .
  21.    'delay'(500) .
  22.    []
  23. 'play'(:0, :1) :
  24.    'wins'('x', :1) .
  25.    'delay'(500) .
  26.    []
  27. 'play'(:0, :1) :
  28.    'not'('member'('u', :1)) .
  29.    'delay'(500) .
  30.    []
  31. 'play'('human', :0) :
  32.    'repeat' .
  33.    'get_move'(:1) .
  34.    'legal'(:1, :0) .
  35.    '!' .
  36.    'move'('o', 0, :1, :0, :2) .
  37.    'play'('computer', :2) .
  38.    []
  39. 'play'('computer', :0) :
  40.    'think'(:0, :1) .
  41.    'move'('x', 0, :1, :0, :2) .
  42.    'play'('human', :2) .
  43.    []
  44. 'move'(:0, :1, :1, 'u' . :2, :0 . :2) :
  45.    'show'(:1, :0) .
  46.    '!' .
  47.    []
  48. 'move'(:0, :1, :2, :3 . :4, :3 . :5) :
  49.    'sum'(:1, 1, :6) .
  50.    'move'(:0, :6, :2, :4, :5) .
  51.    []
  52. 'legal'(0, 'u' . :0) :
  53.    '!' .
  54.    []
  55. 'legal'(:0, :1 . :2) :
  56.    'sum'(:3, 1, :0) .
  57.    'legal'(:3, :2) .
  58.    []
  59. 'get_move'(:0) :
  60.    'repeat' .
  61.    'request'(:1, :2) .
  62.    'stop_button'(:1, :2) .
  63.    'less'(170, :1) .
  64.    'less'(:1, 470) .
  65.    'less'(50, :2) .
  66.    'less'(:2, 350) .
  67.    'is'(:0, '+'('*'(3, '/'('-'(:2, 50), 100)), '/'('-'(:1, 170), 100))) .
  68.    '!' .
  69.    []
  70. 'request'(:0, :1) :
  71.    'repeat' .
  72.    'grf_mse_state'(0, :2, :3) .
  73.    '!' .
  74.    'repeat' .
  75.    'grf_mse_state'(1, :0, :1) .
  76.    '!' .
  77.    []
  78. 'stop_button'(:0, :1) :
  79.    'less'(30, :0) .
  80.    'less'(:0, 70) .
  81.    'less'(30, :1) .
  82.    'less'(:1, 70) .
  83.    'tagexit'('tictactoe'(:2)) .
  84.    []
  85. 'stop_button'(:0, :1) :
  86.    []
  87. 'think'(:0, :1) :
  88.    'insert'('x', :0, :1, :2) .
  89.    'wins'('x', :2) .
  90.    []
  91. 'think'(:0, :1) :
  92.    'insert'('o', :0, :1, :2) .
  93.    'wins'('o', :2) .
  94.    []
  95. 'think'(:0 . :1 . :2 . :3 . 'u' . :4 . :5 . :6 . :7 . '[]', 4) :
  96.    []
  97. 'think'('u' . :0 . :1 . :2 . :3 . :4 . :5 . :6 . :7 . '[]', 0) :
  98.    []
  99. 'think'(:0 . :1 . 'u' . :2 . :3 . :4 . :5 . :6 . :7 . '[]', 2) :
  100.    []
  101. 'think'(:0 . :1 . :2 . :3 . :4 . :5 . 'u' . :6 . :7 . '[]', 6) :
  102.    []
  103. 'think'(:0 . :1 . :2 . :3 . :4 . :5 . :6 . :7 . 'u' . '[]', 8) :
  104.    []
  105. 'think'(:0 . 'u' . :1 . :2 . :3 . :4 . :5 . :6 . :7 . '[]', 1) :
  106.    []
  107. 'think'(:0 . :1 . :2 . 'u' . :3 . :4 . :5 . :6 . :7 . '[]', 3) :
  108.    []
  109. 'think'(:0 . :1 . :2 . :3 . :4 . 'u' . :5 . :6 . :7 . '[]', 5) :
  110.    []
  111. 'think'(:0 . :1 . :2 . :3 . :4 . :5 . :6 . 'u' . :7 . '[]', 7) :
  112.    []
  113. 'insert'(:0, 'u' . :1, 0, :0 . :1) :
  114.    []
  115. 'insert'(:0, :1 . :2, :3, :1 . :4) :
  116.    'insert'(:0, :2, :5, :4) .
  117.    'sum'(:5, 1, :3) .
  118.    []
  119. 'wins'(:0, :0 . :0 . :0 . :1 . :2 . :3 . :4 . :5 . :6 . '[]') :
  120.    []
  121. 'wins'(:0, :1 . :2 . :3 . :0 . :0 . :0 . :4 . :5 . :6 . '[]') :
  122.    []
  123. 'wins'(:0, :1 . :2 . :3 . :4 . :5 . :6 . :0 . :0 . :0 . '[]') :
  124.    []
  125. 'wins'(:0, :0 . :1 . :2 . :0 . :3 . :4 . :0 . :5 . :6 . '[]') :
  126.    []
  127. 'wins'(:0, :1 . :0 . :2 . :3 . :0 . :4 . :5 . :0 . :6 . '[]') :
  128.    []
  129. 'wins'(:0, :1 . :2 . :0 . :3 . :4 . :0 . :5 . :6 . :0 . '[]') :
  130.    []
  131. 'wins'(:0, :0 . :1 . :2 . :3 . :0 . :4 . :5 . :6 . :0 . '[]') :
  132.    []
  133. 'wins'(:0, :1 . :2 . :0 . :3 . :0 . :4 . :0 . :5 . :6 . '[]') :
  134.    []
  135. 'delay'(0) :
  136.    []
  137. 'delay'(:0) :
  138.    'sum'(:1, 1, :0) .
  139.    'bell' .
  140.    'delay'(:1) .
  141.    []
  142. 'screen' :
  143.    'grf_mse_hide' .
  144.    'grf_f_type'(2) .
  145.    'grf_f_style'(4) .
  146.    'grf_box'(0, 0, 639, 399) .
  147.    'grf_f_type'(0) .
  148.    'grf_rfbox'(150, 30, 489, 369) .
  149.    'clr'(50) .
  150.    'clr'(150) .
  151.    'clr'(250) .
  152.    'grf_f_type'(2) .
  153.    'grf_f_style'(1) .
  154.    'grf_rfbox'(30, 30, 70, 70) .
  155.    'grf_text'(34, 42, 'STOP') .
  156.    'grf_mse_show'(0) .
  157.    []
  158. 'clr'(:0) :
  159.    'square'(170, :0) .
  160.    'square'(270, :0) .
  161.    'square'(370, :0) .
  162.    []
  163. 'show'(:0, :1) :
  164.    'prod'(3, :2, :3, :0) .
  165.    'is'(:4, '+'('*'(100, :3), 170)) .
  166.    'is'(:5, '+'('*'(100, :2), 50)) .
  167.    'grf_mse_hide' .
  168.    'show'(:4, :5, :1) .
  169.    'grf_mse_show'(0) .
  170.    []
  171. 'show'(:0, :1, 'o') :
  172.    '!' .
  173.    'circle'(:0, :1) .
  174.    []
  175. 'show'(:0, :1, 'x') :
  176.    'cross'(:0, :1) .
  177.    []
  178. 'square'(:0, :1) :
  179.    'sum'(:0, 99, :2) .
  180.    'sum'(:1, 99, :3) .
  181.    'grf_f_type'(0) .
  182.    'grf_bar'(:0, :1, :2, :3) .
  183.    []
  184. 'circle'(:0, :1) :
  185.    'sum'(:0, 50, :2) .
  186.    'sum'(:1, 50, :3) .
  187.    'grf_l_width'(15) .
  188.    'grf_arc'(:2, :3, 30, 0, 3600) .
  189.    []
  190. 'cross'(:0, :1) :
  191.    'sum'(:0, 20, :2) .
  192.    'sum'(:1, 20, :3) .
  193.    'sum'(:0, 80, :4) .
  194.    'sum'(:1, 80, :5) .
  195.    'grf_l_width'(15) .
  196.    'grf_l_ends'(2, 2) .
  197.    'grf_pline'(:2 . :3 . :4 . :5 . '[]') .
  198.    'grf_pline'(:2 . :5 . :4 . :3 . '[]') .
  199.    []
  200.  :
  201.    'seen' .
  202.    []#
  203.  
  204.